10 REM ******************
20 REM PLOTTER-BASIC DEMO
30 REM ******************
35 .SCHWARZ:.GK:.MITTEL
37 .TEXT,"     [196]REHUNG EINES 3-[196]-[203]OERPERS"
38 .TEXT,"     =========================="
39 .MOVE,0,-70:.TEXT
40 XV=240:YV=0:REM VERSCHIEBUNGSVEKTOR
41 F=15       :REM VERGROESSERUNG
42 W=35       :REM BETRACHTUNGSWINKEL
43 L=24       :REM ANZAHL DER LINIEN
45 DIM R(L)   :REM FELD DER LINIEN
50 P=8        :REM ANZAHL DER ECKPUNKTE
55 DIM X(P):DIM Y(P):DIM Z(P)
60 REM EINLESEN DER ECKPUNKTE
70 FOR I=1 TO P
80 READ X(I),Y(I),Z(I)
90 NEXT
100 REM EINLESEN DER VERBINDUNGSFOLGE
110 FOR I=1 TO L
120 READ R(I)
130 NEXT
140 REM ZEICHNUNG
150 FOR I=1 TO L STEP 2
160 .TRANSL,X(R(I)),Y(R(I)),Z(R(I)),XV,YV,F,W,X(R(I+1)),Y(R(I+1)),Z(R(I+1))
170 NEXT
180 REM DREHUNG UM 10 GRAD
185 DW=DW+10
190 FOR I=1 TO P
200 .TURN,X(I),Y(I),DW:REM DREHUNG UM Z
210 NEXT
220 .MOVE,0,-150
230 .TEXT             :REM CR SENDEN
240 PRINT "COMMODORE-TASTE DRUECKEN!"
250 WAIT 653,2
260 PRINT "[145]                         [145]"
270 GOTO 140
499 REM ECKPUNKTE
500 DATA -2,-2,0,2,-2,0,2,2,0,-2,2,0,0,0,6,4,0,6,4,4,6,0,4,6
599 REM REIHENFOLGE DER VERBINDUNGEN
600 DATA 1,2,2,3,3,4,4,1,1,5,2,6,3,7,4,8,8,5,5,6,6,7,7,8